home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 0 / DISK0300.ZIP / SEARCH.BAK < prev    next >
Text File  |  1985-03-02  |  570b  |  26 lines
  1.         CLEAR
  2.         USE INV INDEX IND
  3.         GO TOP
  4.         ? '                    Enter just enough info to identify the item.'
  5.         ?
  6.         ? '                          Capitalization Must be Correct.'
  7.         ?
  8.         ?
  9.         ACCEPT "Enter Item Name " to stuff
  10.         FIND &STUFF
  11.         IF EOF() = .T.
  12.         CLEAR
  13.         @ 12,23 SAY "Couldn't find that item"
  14.         ?
  15.         ?
  16.         ?
  17.  
  18.         WAIT
  19.         USE INV INDEX INV
  20.         RETURN
  21.         ELSE
  22.         EDIT
  23.         ENDIF
  24.         USE INV INDEX INV
  25.         RETURN
  26.